perm filename S[S1,ALS]2 blob sn#405685 filedate 1978-12-23 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	R PASCAL 70↔
C00003 ENDMK
C⊗;
R PASCAL 70↔
SOPS09.REL↔
SOPS09.LST↔
SOPS09.PAS↔
DO S(2)↔
|
LOAD SOPS09.REL↔
SSAVE SOPS09↔
|
DEL SOPS09.LST↔
DEL SOPS09.REL↔
|
RUN PCPE03.DMP[DMP,S1]↔
SOPT.PAS↔
SOPT.LST↔
SOPT.PCO↔
END↔
DO S(4)↔
|
RUN SOPS08.DMP[DMP,S1]↔
SOPT.PCO↔
SOPT.PS1↔
SOPT.LDI↔
END↔
|
RUN SOPS07.DMP[DMP,S1]↔
SOPT.PCO↔
SOPT.PSI↔
SOPT.LDI↔
END↔
|
RU FSIM[PAS,S1];PASRUN.LDI[PAS,S1],TEST.LDI,numer1.LDI[PAS,S1]↔